home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
util4
/
0utils.lha
/
0Utils
/
FilePart.data
< prev
next >
Wrap
Text File
|
1995-08-19
|
878b
|
60 lines
#ifdef TPLTER
FilePart = {
SHORT = {{ extract a filename's filepart }};
DESCRIPTION = {{
Filepart gets a filename and extracts its
AmigaDOS file-part.
The resulting string is sent to STDOUT.
RESULT
a filename's filepart
}};
EXAMPLES = {{
>FilePart a:b
"b"
>FilePart a/b
"b"
> filepart ram:t/jabba.bak
jabba.bak
}};
SEEALSO = {{
dos.library/FilePart
Suffix, PathPart
}};
HISTORY = {{
01-08-93 b_noll created
20-02-95 b_noll restructured source
21-02-95 b_noll added version/format-prefix/offset
20-03-95 b_noll added args diagnostics
19-08-95 b_noll created .data file
}};
Template = "FILE/A";
Arguments = {{
STRPTR file;
}};
version = "1.2";
body = {{
retval = RETURN_WARN;
if (PutStr (FilePart(argv->file)) == 0) retval = RETURN_OK;
PutStr("\n");
}};
};
#endif